home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
UTILITY
/
FSULTRA1.ARJ
/
ULTRX_LH.ASM
< prev
next >
Wrap
Assembly Source File
|
1992-06-18
|
3KB
|
127 lines
comment !
FSU - ULTRA The greatest random number generator that ever was
or ever will be. Way beyond Super-Duper.
(Just kidding, but we think its a good one.)
Authors: Arif Zaman (arif@stat.fsu.edu) and
George Marsaglia (geo@stat.fsu.edu).
Date: 27 May 1992
Version: 1.05
Copyright: To obtain permission to incorporate this program into
any commercial product, please contact the authors at
the e-mail address given above or at
Department of Statistics and
Supercomputer Computations Research Institute
Florida State University
Tallahassee, FL 32306.
See Also: README for a brief description
ULTRA.DOC for a detailed description
-----------------------------------------------------------------------
!
;
; File: ULTRX_LH.ASM (80386 Lahey F77L calling conventions)
;
DOSSEG
.MODEL HUGE
;===== B: GLOBAL FUNCTIONS, SUBROUTINES and VARIABLES =================
;
public i31bit, i15bit, i7bit, i1bit, uni, duni
public i32bit, i16bit, i8bit, rinit, vni, dvni
public swbstate, swbsize
;===== D. MACRO DEFINITIONS ===========================================
;
; RinitProcStart should take two 32-bit arguments conx and shrx
; and place them in eax and ebx.
; es and ds should both point to the data segment.
; conx must be odd (so we or with 1 just to make sure).
; FillProc
; DS is already the data segment. ES should also be made the same.
EnterProcedure macro
arg arg1:dword
push bp
mov bp,sp
mov dx,DATA
mov ds,dx
endm
ExitProcedure macro
pop bp
ret
endm
Enter2arg macro
arg conx:dword, shrx:dword
EnterProcedure
mov dx,ds
lds si,ConX ; load conx in eax
mov eax,[si]
shl eax,1
or al,1 ; (congx must be odd)
lds si,ShrX ; and shrx in ebx
mov ebx,[si]
mov ds,dx
mov es,dx
endm
Exit2arg macro
ExitProcedure
endm
EnterFill macro
mov ax,ds
mov es,ax
endm
ExitFill macro
ret
endm
DwordFn macro
les di,arg1
stosw
mov ax,dx
stosw
endm
WordFn macro
les di,arg1
stosw
endm
ByteFn macro
les di,arg1
cbw ; convert bytes to integer*2
stosw
endm
RealFn macro
lds bx,arg1
fstp dword ptr [bx]
endm
DoubleFn macro
lds bx,arg1
fstp qword ptr [bx]
endm
DGROUP GROUP DATA
DATA SEGMENT WORD PUBLIC 'DATA'
ASSUME DS:DGROUP
INCLUDE ULTRADAT.INC
DATA ENDS
.STACK 10h
.CODE
INCLUDE ULTRxCOD.INC
END